home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.02 Feb 87 / Basic Benchmarks / Array Access / Lookup-I next >
Encoding:
Text File  |  1986-10-27  |  538 b   |  33 lines  |  [TEXT/MSBB]
  1. PRINT "Integer Array Lookup"
  2. PRINT "100,000 Iterations"
  3.  
  4. DIM a%(1000)
  5. FOR i% = 1 TO 1000
  6.    a%(i%) = 1000+i%
  7. NEXT i%
  8.  
  9. start! = TIMER   ' calculate the overhead
  10. FOR i% = 1 TO 100
  11.     FOR j% = 1 TO 1000
  12.     NEXT j%
  13. NEXT i%
  14. finish! = TIMER
  15. overhead! = finish! - start!
  16.  
  17. start! = TIMER
  18. FOR i% = 1 TO 100
  19.     FOR j% = 1 TO 1000
  20.         c% = a%(j%)
  21.     NEXT j%
  22. NEXT i%
  23.  
  24. finish! = TIMER
  25.  
  26. PRINT "finish = ";finish!
  27. PRINT "start  = ";start!
  28. PRINT "Overhead = ";overhead!
  29.  
  30. PRINT ((finish! - start!)-overhead!); " seconds"
  31. WHILE INKEY$ = "" : WEND
  32.  
  33.